home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Rx_Writer_2223895112012.psc / Rx PSC / Form / Disclaimer.frm next >
Text File  |  2012-05-08  |  3KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form Disclaimer 
  3.    BackColor       =   &H80000008&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Disclaimer of Warranty and Liability"
  6.    ClientHeight    =   4425
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   9090
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4425
  14.    ScaleWidth      =   9090
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin Rx.ocxFormShape ocxFormShape1 
  18.       Left            =   120
  19.       Top             =   3960
  20.       _ExtentX        =   794
  21.       _ExtentY        =   873
  22.       Shape           =   4
  23.    End
  24.    Begin VB.CommandButton Command2 
  25.       BackColor       =   &H8000000E&
  26.       Caption         =   "Decline"
  27.       BeginProperty Font 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   9.75
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   375
  37.       Left            =   5520
  38.       Style           =   1  'Graphical
  39.       TabIndex        =   2
  40.       Top             =   3840
  41.       Width           =   1215
  42.    End
  43.    Begin VB.CommandButton Command1 
  44.       BackColor       =   &H8000000E&
  45.       Caption         =   "Accept"
  46.       BeginProperty Font 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   9.75
  49.          Charset         =   0
  50.          Weight          =   700
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   375
  56.       Left            =   2040
  57.       Style           =   1  'Graphical
  58.       TabIndex        =   1
  59.       Top             =   3840
  60.       Width           =   1215
  61.    End
  62.    Begin VB.TextBox Text1 
  63.       Appearance      =   0  'Flat
  64.       BackColor       =   &H80000008&
  65.       BorderStyle     =   0  'None
  66.       ForeColor       =   &H8000000E&
  67.       Height          =   3675
  68.       Left            =   120
  69.       Locked          =   -1  'True
  70.       MultiLine       =   -1  'True
  71.       TabIndex        =   0
  72.       Text            =   "Disclaimer.frx":0000
  73.       Top             =   240
  74.       Width           =   8895
  75.    End
  76. End
  77. Attribute VB_Name = "Disclaimer"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Sub Command1_Click()
  83.     Open App.Path & "\Accept" For Output As #1: Close #1
  84.     Unload Me
  85.     Load Loading
  86.     Loading.Show
  87. End Sub
  88.  
  89. Private Sub Command2_Click()
  90. On Error Resume Next
  91. Kill App.Path & "\Accept"
  92. Unload Me
  93. End Sub
  94.  
  95. Private Sub Form_Deactivate()
  96. SetTopMostWindow Me.hwnd, True
  97. End Sub
  98.  
  99. Private Sub Form_Load()
  100.     SetTopMostWindow Me.hwnd, True
  101.     If Dir(App.Path & "\Accept") <> "" Then
  102.         Unload Me
  103.         Load Loading
  104.         Loading.Show
  105.         Set Disclaimer = Nothing
  106.     End If
  107. End Sub
  108.  
  109. Private Sub Text1_GotFocus()
  110. Command1.SetFocus
  111. End Sub
  112.